1 POKE691,1:GOTO100
2 SYS52440:A$=LEFT$(SP$,A1%):SYS52360:RETURN
3 SYS52300:IFA1%<0THEN5
4 A$=LEFT$(SP$,A1%):SYS52360:GOSUB46:O$=A$:RETURN
5 GOTO41
6 SYS52340:RETURN
7 PRINT"[151]";:GOSUB14:SYS52310:RETURN
14 IFLL=1OR(PEEK(56577)AND16)=THTHENRETURN
15 GOTO37
16 POKE659,6+ABS((BD=1200)*2):C=1022730/BD:GOSUB29:POKE51968,A2%:POKE51969,A1%
17 IFBD=1200THENC=1022730/BD*.966:GOSUB29
18 POKE665,A2%:POKE666,A1%:C=1022730/BD/2-100:GOSUB29:POKE661,A2%:POKE662,A1%
19 RETURN
20 B$="[164]"
21 SYS52450:B$=LEFT$(A$,ABS(A1%-1)):RETURN
22 A$="":SYS52320:IFA2%=0THENRETURN
23 IFA2%=1ORA2%=3ORA2%=16ORA2%=9THENA$="[193]":RETURN
24 IFA2%<>83ANDA2%<>19THENRETURN
25 FORKK=1TO2E3:SYS52320:IFA2%=0THEN28
26 IFA2%=17ORA2%=67THENKK=2E3
27 IFA2%=65ORA2%=13THENA$="[193]":KK=2E3
28 NEXTKK:RETURN
29 A1%=C/256:A2%=C-A1%*256:RETURN
30 GOSUB7:IFIT$=""THENGOSUB3:IT$=A$:GOSUB33:RETURN
31 GOSUB33:IFPEEK(679)<>1THENGOSUB7:O$=A$:A$="":GOSUB7:A$=O$
32 RETURN
33 A$=IT$:B$=":":GOSUB21:IFA1%=0THENIT$="":RETURN
34 IT$=MID$(A$,A1%+1):A$=B$:RETURN
35 A$=LEFT$(RK$,30):GOSUB20:N$=B$:SC=ASC(MID$(RK$,37,1)):CW=ASC(MID$(RK$,41,1))
36 TD$=MID$(RK$,48,2):TU$=MID$(RK$,50,2):A$="   ":SYS52330:A$=A$+"       "
37 SYS52330:DW$=A$:NA$=N$:FORK=LEN(N$)TO20:NA$=NA$+" ":NEXTK
38 AM$=" [193][205]":PM$=" [208][205]":TM$="12:00":FL$="[198][213][204][204]":MG=20000:AT=0:Z=0:SA$="[207]K.":DT=0
39 DN$=AM$:PK=20:FK=6:CM=5:EM=0:SM=0:RETURN
40 A$="[211]TANDBY - [210]ETURNING TO [194][194][211]...":GOSUB7
41 A$=TD$:B$=TU$:RK$=LEFT$(RK$,47)+A$+B$+MID$(RK$,52)
42 PRINT:PRINT"[145][145][145][145]SYS52470:REM[145][145][145]"
43 SYS52410:A$=RK$:A1%=-1:SYS52420:A$=STR$(BD)+"     "+STR$(LL):A1%=-1:SYS52420
44 A$=STR$(TH):A1%=-1:SYS52420:A$=IT$:A1%=-1:SYS52420:A$=""
45 POKE631,13:POKE198,1:CLOSE5:END
46 IFA2%<1THENRETURN
47 B$=A$:RETURN
48 CT=VAL(MID$(TI$,3,2))+VAL(LEFT$(TI$,2))*60:TA=SC*10+10:RETURN
50 GOSUB22:IFA$="[193]"THENRETURN:REM  READ FILE ROUTINE
51 A$="":GOSUB7
52 POKE684,0:OPEN4,8,4,"0:"+F$+",S,R":GET#4,C$
53 FF%=0:IFST<>0THENFF%=1:CLOSE4:OPEN4,8,4,"$":GOTO56
54 A$=LEFT$(SP$,CW):SYS52380:A$=C$+LEFT$(A$,A1%):C$="":IFA2%<1THENC$=""
55 A3%=A2%:GOSUB7:GOSUB22:IFA$<>"[193]"ANDA3%<1THEN54
56 POKE684,0:AB%=-(A$="[193]"):CLOSE4:A$="":GOSUB7:RETURN
60 OPEN1,8,15:OPEN2,8,2,"/SSC.HIGH":SP$="":FORK=1TO40:SP$=SP$+" ":NEXTK:K=0
61 K=K+1:A1%=K/256:A2%=K-A1%*256:PRINT#1,"P"+CHR$(98)+CHR$(A2%)+CHR$(A1%);
62 A$=SP$:SYS52390:RETURN
63 CLOSE2:CLOSE1:RETURN
70 GOSUB98:A$="[201]T IS NOW "+TM$+DN$+".":GOSUB7
71 TQ=INT(RND(1)*500)+(500*A):A$="[212]ODAY YOU HAVE TRAVELLED"+STR$(TQ)+"KM."
72 GOSUB7:AT=AT+TQ:IFAT>20000THENAT=20000
73 A$="[212]OTAL DISTANCE TRAVELLED:"+STR$(AT)+"KM.":GOSUB7:MG=20000-AT
74 IFMG<0THENMG=0:GOTO86
75 A$="[217]OU'RE STILL"+STR$(MG)+"KM FROM HOME.":GOSUB7
76 PK=INT(RND(1)*(20*A)):A$="[212]HE [208]IRATES ARE"+STR$(PK)+"KM BEHIND.":GOSUB7
77 FK=FK-A:IFFK>4THENFL$="[198][213][204][204]"
78 IFFK=4ORFK=3THENFL$="[200]ALF [198]ULL"
79 IFFK=2ORFK=1THENFL$="[209]UARTER [198]ULL"
80 IFFK=0THENFL$="[197]MPTY":FK=-1
81 A$="[217]OUR FUEL TANK IS "+FL$:GOSUB7:SA$="[196]ANGER!":IFCM<>6THENSA$="[207]K."
82 A$="[197]NGINE [211]TATUS: "+SA$:GOSUB7:IFEM=4THENA$="[211]TOP AND EAT!":GOSUB7
83 IFSM=6THENA$="[211]TOP AND SLEEP!":GOSUB7
84 IFZ=0THENZ=1:GOTO86
85 IFZ=1THENZ=0
86 RETURN
98 DN$=AM$:IFZ=1THENDN$=PM$
99 RETURN
100 OPEN5,2,0:A1%=1:A2%=1:FORK=1TO127:SP$=SP$+" ":NEXTK:A$="":ZE$=CHR$(0)
101 A1%=0:GOSUB2:RK$=A$:POKE680,70:A1%=1:GOSUB2:BD=VAL(LEFT$(A$,5))
102 LL=VAL(MID$(A$,6)):A1%=2:GOSUB2:TH=VAL(A$):A1%=3:GOSUB2:IT$=A$:GOSUB16:GOSUB35
103 A$="       [211][208][207][207][203][217] [211][208][193][195][197] [195][200][193][211][197] ([214]1.0)":GOSUB7
104 A$="           ([195])1989 [205]IKE [203]ERR":GOSUB7:F$="[211][211][195][201][206][212][210][207]":GOSUB50
105 GOSUB48:IFCT>TATHEN40
106 A$="[195][200][193][211][197]: ":GOSUB30:GOSUB6:IFA$="[194][194][211]"THEN40
107 IFA$="?"ORA$="[200][197][204][208]"ORA$="[200]"THENF$="[211][211][195][200][197][204][208]":GOSUB50:GOTO105
108 IFA$="[208][204][193][217]"THEN120
109 IFA$="[214]"THENA$="[211]POOKY [211]PACE [195]HASE [214]1.0 - [196]EC.29,1989":GOSUB7:GOTO105
115 A$="? FOR HELP.":GOSUB7:GOTO105
120 A$="[193]RRRR...[193]NOTHER VICTIM, MATEYS...":GOSUB7:GOSUB38
130 A$="[205]AIN [195]HASE [205]ENU---------------":GOSUB7
131 A$="1. [211]LOW [211]PEED":GOSUB7:A$="2. [205]ODERATE [211]PEED":GOSUB7
132 A$="3. [198]ULL [211]PEED":GOSUB7:A$="4. [211]TOP FOR [204]UNCH":GOSUB7
133 A$="5. [211]LEEP":GOSUB7:A$="6. [204]ET [197]NGINE [195]OOL":GOSUB7:A$="7. [211]TATS":GOSUB7
134 A$="8. [198]UEL-UP":GOSUB7:A$="9. [209]UIT":GOSUB7:IFPK=0THENGOSUB139:GOTO900
135 GOSUB48:IFCT>TATHEN40
136 A$="[207]PTION #[1-9]: ":GOSUB30:A=VAL(A$):IFA$=""ORA$="?"ORA<1ORA>9THEN130
137 ONAGOTO170,160,150,180,185,190,195,205,215
139 A$="[217]OU DIDN'T MAKE IT HOME IN TIME!":GOSUB7:RETURN
140 A$="[217]OU BLOW YOUR ENGINE AND DRIFT...":GOSUB7:RETURN
141 A$="[217]OU STOP AND LET YOUR ENGINE COOL...":GOSUB7:RETURN
142 A$="[217]OU STOP FOR LUNCH...":GOSUB7:RETURN
143 A$="[212]HE [208]IRATES HAVE CAUGHT YOU!  [199]AME OVER!":GOSUB7:RETURN
144 A$="[217]OUR ENGINE DOESN'T NEED COOLING!":GOSUB7:RETURN
145 A$="[217]OU STARVE!  [199]AME OVER!":GOSUB7:RETURN
146 A$="[217]OU FELL ASLEEP!  [199]AME OVER!":GOSUB7:RETURN
147 A$="[217]OU RUN OUT OF GAS!  [199]AME OVER!":GOSUB7:RETURN
148 A$="[217]OU STOP AND SLEEP ON A SMALL ASTEROID.":GOSUB7:RETURN
149 A$="[212]HE [208]IRATES ARE"+STR$(PK)+"KM AWAY!":GOSUB7:RETURN
150 A$="[198]ULL SPEED AHEAD...":GOSUB7:CM=CM+1:IFCM=7THENGOSUB140:GOTO900
151 SM=SM+1:EM=EM+1:IFEM=5THENGOSUB145:GOTO900
152 IFSM=7THENGOSUB146:GOTO900
153 IFFK<0THENGOSUB147:GOTO900
154 A$="[217]OU TRAVEL AT FULL SPEED FOR 12 HOURS.":GOSUB7:GOSUB70
155 IFPK=0THENGOSUB139:GOTO900
156 IFMG=0THENGOTO1000
157 GOTO130
160 A$="[205]ODERATE SPEED AHEAD...":GOSUB7:CM=CM+1:IFCM=7THENGOSUB140:GOTO900
161 SM=SM+1:EM=EM+1:IFEM=5THENGOSUB145:GOTO900
162 IFSM=7THENGOSUB146:GOTO900
163 IFFK<0THENGOSUB147:GOTO900
164 A$="[217]OU TRAVEL FOR 12 HOURS.":GOSUB7:GOSUB70
165 IFPK=0THENGOSUB139:GOTO900
166 IFMG=0THENGOTO1000
167 GOTO130
170 A$="[211]LOW SPEED AHEAD...":GOSUB7:CM=CM+1:IFCM=7THENGOSUB140:GOTO900
171 SM=SM+1:EM=EM+1:IFEM=5THENGOSUB145:GOTO900
172 IFSM=7THENGOSUB146:GOTO900
173 IFFK<0THENGOSUB147:GOTO900
174 A$="[217]OU TRAVEL AT SLOW SPEED FOR 12 HOURS.":GOSUB7:GOSUB70
175 IFPK=0THENGOSUB139:GOTO900
176 IFMG=0THENGOTO1000
177 GOTO130
178 A$="[193] SIGN SAYS:":GOSUB7:A$="'[195]LOSED DUE TO FOOD POISONING.'":GOSUB7
179 RETURN
180 GOSUB142:IFEM<2THENGOSUB178
181 DT=INT(RND(1)*80)+1:IFDT<20THEN950
182 A$="[205][205][205][205]MMMMM...DELICIOUS!":GOSUB7:EM=0:PK=PK-5:IFPK<0THENPK=0
183 GOSUB149:IFPK=0THENGOSUB139:GOTO900
184 GOTO130
185 GOSUB148:IFSM<4THEN955
186 DT=INT(RND(1)*80)+1:IFDT<20THEN960
187 A$="[217]OU WAKE UP WELL RESTED.":GOSUB7:SM=0:PK=PK-10:IFPK<0THENPK=0
188 GOSUB149:IFPK=0THENGOSUB139:GOTO900
189 GOTO130
190 IFCM<4THENGOSUB144:GOTO130
191 GOSUB141:CM=0:PK=PK-5:GOSUB149:IFPK<0THENPK=0:GOSUB140
192 GOTO130
195 A$="[202]OURNEY [211]TATUS:---------------":GOSUB7
196 A$="[196]ISTANCE TODAY    :"+STR$(TQ)+"KM":GOSUB7
197 A$="[196]ISTANCE TRAVELLED:"+STR$(AT)+"KM":GOSUB7
198 A$="[196]ISTANCE TO GO    :"+STR$(MG)+"KM"
199 A$="[208]IRATES           :"+STR$(PK)+"KM BEHIND.":GOSUB7
200 A$="[212]IME              : "+TM$+DN$:GOSUB7
201 A$="[198]UEL TANK         : "+FL$:GOSUB7
202 A$="[197]NGINE [211]TATUS     : "+SA$+"":GOSUB7:GOTO130
205 A$="[217]OU STOP FOR FUEL...":GOSUB7:IFFK>5THEN210
206 PK=PK-5:IFPK<0THENPK=0
207 GOSUB149:FL$="[198][213][204][204]":FK=6:A$="[217]OUR FUEL TANK IS "+FL$+"":GOSUB7:GOTO130
210 A$="[193] SIGN SAYS:'[199]AS [211]TATION [195]LOSED!'":GOSUB7:GOSUB149:GOTO130
215 A$="[209]UIT THE GAME - YOU SURE [[217]/[206]]? ":GOSUB30:GOSUB6:IFA$="[217]"THEN105
216 GOTO130
900 A$="[212]HE [208]IRATES HAVE CAUGHT UP WITH YOU!    [193]FTER THEY DECIDE TO MAKE YOU"
901 GOSUB7:A$=" THEIR NEW FLAG, THEY TAKE ALL YOUR MONEY.":GOSUB7
902 A$="[199]AME OVER!":GOSUB7
903 A$="[212]RY AGAIN? ":GOSUB30:GOSUB6:IFA$<>"[217]"THEN40
904 GOTO120
950 A$="[217]OU GET FOOD POISONING FROM YOUR LUNCH  AND GO TO THE HOSPITAL.":EM=0
951 GOSUB7:A$="[217]OU WERE DELAYED A FEW HOURS...":GOSUB7:PK=PK-15:IFPK<0THENPK=0
952 GOSUB149:IFPK=0THENGOSUB139:GOTO900
953 GOTO130
955 A$="[202]UST AS YOU PARK, A MISSILE LANDS ON TOP":GOSUB7
956 A$="OF THE HOTEL FROM A NEARBY TESTING SITE.[206]O SLEEP FOR YOU!":GOSUB7
957 GOSUB149:GOTO130
960 A$="[215]HILE YOU WERE SLEEPING YOU WERE        KIDKNAPPED BY STREET-MUTANTS!"
961 GOSUB7:SM=0
962 A$="[211]UB-[205]ENU--------":GOSUB7:A$="1. [212]RY AND ESCAPE":GOSUB7
963 A$="2. [206]EGOTIATE":GOSUB7:A$="3. [211]CREAM FOR HELP":GOSUB7
964 A$="[193]CTION: ":GOSUB30:A=VAL(A$):IFA$=""ORA<1ORA>3THEN962
965 ONAGOTO970,980,990
970 A$="[217]OU TRY TO ESCAPE...":GOSUB7:DT=INT(RND(1)*100)+1:IFDT<50THEN975
971 A$="[204]UCKILY, THE MUTANTS WERE SLEEPING!":GOSUB7:GOTO130
975 A$="[215]HILE THE MUTANTS WERE SLEEPING, YOU TRY":GOSUB7
976 A$="AND ESCAPE...AND KNOCK OVER A CHAIR,    WAKING THE MUTANTS.  [206]OT"
977 A$=A$+" PLEASANT...":GOSUB7:GOSUB139:GOTO900
980 A$="[217]OU TRY TO NEGOTIATE YOUR RELEASE...":GOSUB7:DT=INT(RND(1)*100)+1
981 IFDT<50THEN985
982 A$="[217]OU CONVINCE THEM TO LEAVE YOU ALONE BY GIVING THEM SOME TRINKETS YOU"
983 A$=A$+" BROUGHT   ALONG.":GOSUB7:GOTO130
985 A$="[212]HEY TELL YOU TO SHUT UP.  [217]OU CONTINUE TO PLEAD UNTIL A MUTANT THROWS"
986 A$=A$+" YOU OUT  A 1000TH STOREY WINDOW.":GOSUB7:GOSUB139:GOTO900
990 A$="[217]OU SCREAM FOR HELP...":GOSUB7:DT=INT(RND(1)*100)+1:IFDT<50THEN995
991 A$="[212]HE [208]OLICE HEAR YOU AND RESCUE YOU.":GOSUB7:GOTO130
995 A$="[194]EFORE YOU CAN UTTER A SOUND, YOUR MOUTHIS CLAMPED BY A KNARLY HAND."
996 GOSUB7:A$="[193]FTER A FEW WHISPERS, YOU FEEL A COLD   BLADE ON YOUR THROAT."
997 GOSUB7:GOSUB139:GOTO900
1000 A$="[195][207][206][199][210][193][212][213][204][193][212][201][207][206][211]!!":GOSUB7
1001 A$="[217]OU HAVE MANAGED TO AVOID THE [208]IRATES   ALL THE WAY HOME! [217]OU WIN!"
1002 GOSUB7:GOTO903